home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aah.d64
/
src.test'package
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
82 lines
;
* = $8009
;
.OPT NOLIST
.LIB LIB.LABELS
;
.BYTE DEFPAG
.WORD END
.WORD DUMMY
.BYTE 12,'TEST''PACKAGE'
.WORD PROCS
.WORD DUMMY
.BYTE 0
;
PROCS .BYTE 4,'SWAP'
.WORD PRHEAD
.BYTE 0
;
PRHEAD .BYTE PROC
.WORD PRCODE
.BYTE 2
.BYTE REF+REAL
.BYTE REF+REAL
.BYTE ENDPRC
PRCODE
;
; REAL VARIABLE FIRST
;
LDA #1
JSR FNDPAR
LDA COPY1
LDY COPY1+1
JSR LDAC1
JSR PUSHA1
;
; ASSIGN REAL THIRD
;
JSR POPA1
LDX #<LOC001
LDY #>LOC001
JSR STAC1
;
; REAL VARIABLE SECOND
;
LDA #2
JSR FNDPAR
LDA COPY1
LDY COPY1+1
JSR LDAC1
JSR PUSHA1
;
; ASSIGN REAL FIRST
;
LDA #1
JSR FNDPAR
JSR POPA1
LDX COPY1
LDY COPY1+1
JSR STAC1
;
; REAL VARIABLE THIRD
;
LDA #<LOC001
LDY #>LOC001
JSR LDAC1
JSR PUSHA1
;
; ASSIGN REAL SECOND
;
LDA #2
JSR FNDPAR
JSR POPA1
LDX COPY1
LDY COPY1+1
JSR STAC1
RTS
LOC001 .BYTE 0,0,0,0,0
;
END .END